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-- InlineDefs.Mesa Edited by Sandman on June 15, 1977 9:01 AM 

DIRECTORY 

Mopcodes: FROM "mopcodes"; 

DEFINITIONS FROM Mopcodes; 

InlineDefs: DEFINITIONS ■ 

BEGIN -- byte codes for inline 

COPY: MACHINE CODE [from: POINTER, nwords: CARDINAL, to: POINTER] = 
INLINE[zBLT]; 

DIVMOD: MACHINE CODE [num. den: CARDINAL] RETURNS [quotient, remainder: CARDINAL] 
INLINE[zDIV]; 

PUSH: MACHINE CODE RETURNS [WORD] = 
INLINE[zPUSH]; 

LDIVMOD: MACHINE CODE [numlow: WORD, numhigh: CARDINAL, den: CARDINAL] 
RETURNS [quotient, remainder: CARDINAL] = INLINE[zLDIV] ; 

LongCARDINAL: TYPE = MACHINE DEPENDENT RECORD [ 
lowbits: CARDINAL, 
highbits: CARDINAL]; 

LongMult: MACHINE CODE [CARDINAL, CARDINAL] RETURNS [product: LongCARDINAL] = 

INLINE [zMUL, zPUSH]; 
LongDiv: MACHINE CODE [num: LongCARDINAL, den: CARDINAL] RETURNS [CARDINAL] » 

INLINE[zLDIV, zPOP]; 
LongDivMod: MACHINE CODE [num: LongCARDINAL, den: CARDINAL] 

RETURNS [quotient, remainder: CARDINAL] * INLINE[zLDIV] ; 

BitOp: TYPE = MACHINE CODE [WORD, WORD] RETURNS [WORD]; 

BITAND: BitOp = INLINE[zAND] ; 
BITOR: BitOp = T NLINE[zOR]; 
BITXOR: BitOp = INLINE[zXOR] ; 

BITNOT: MACHINE CODE [WORD] RETURNS [WORD] = INLINE[zLINl , zXOR]; 
BITSHIFT: MACHINE CODE [value: WORD, count: INTEGER] RETURNS [WORD] = 
INLINE[zSHIFT]; 

USC: PROCEDURE [al, a2 : WORD] RETURNS [INTEGER]; 

END. . . 


